home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / FORTH Folder / XMIT < prev   
Encoding:
Text File  |  1984-07-24  |  13.0 KB  |  431 lines  |  [BLKS/M4TH]
  1. rameOval(r);
  2.   SetRect(r, 410, 50, 450, 90);     {Completely inside the first shape}
  3.   FrameRoundRect(r, 18, 18);
  4.   CloseRgn(My_Rgn);
  5.  
  6.   Use_Region;
  7.   DrawWords(352, 0);
  8.  end;
  9.  
  10.  procedure DoRegion4;
  11.  
  12. { Region 4. This creates a region which shows the effect of }
  13. {partially overlapping region areas.}
  14.  
  15.   var
  16.    r : Rect;
  17.  
  18.  begin
  19.   ClearRgn;
  20.   MoveTo(40, 310);
  21.   DrawString('Overlapping');
  22.  
  23.   OpenRgn;
  24.   SetRect(r, 30, 180, 130, 280);
  25.   FrameOval(r);    { Draw a simple circle }
  26.   SetRect(r, 5, 215, 155, 245);
  27.   FrameRect(r);    { Draw a rectangle over the circle }
  28.   CloseRgn(My_Rgn);
  29.  
  30.   Use_Region;
  31.   DrawWords(0, 149);
  32.  end;
  33.  
  34.  procedure DoRegion5;
  35.  
  36. { Region 5. Regions do not have to be contiguous. This procedure creates}
  37. {a region with three separate areas.}
  38.  
  39.   var
  40.    r : Rect;
  41.  
  42.  begin
  43.   ClearRgn;
  44.   MoveTo(220, 310);
  45.   DrawString('Disjoint Areas');
  46.  
  47.   OpenRgn;
  48.   SetRect(r, 190, 160, 270, 230);
  49.   FrameOval(r);
  50.   SetRect(r, 280, 160, 340, 240);
  51.   FrameRect(r);
  52.   SetRect(r, 190, 255, 340, 285);
  53.   FrameRoundRect(r, 18, 18);
  54.  
  55.   CloseRgn(My_Rgn);
  56.   Use_Region;
  57.   DrawWords(176, 150);
  58.  end;
  59.  
  60.  procedure DoRegion6;
  61.  
  62. { Region 6. This procedure illustrates the effect of continuous clipping}
  63. {associated with any drawing, even animation.}
  64.  
  65.   var
  66.    r : Rect;
  67.  
  68.   procedure Animate;
  69.  
  70. { Animate, called only by DoRegion6, bounces a ball in the general area}
  71. {of region 6, showing that the clipping occurs constantly, with now need}
  72. {for special instructions. The animation stops when the mouse button is}
  73. {pressed.}
  74.  
  75.    var
  76.     X, Y, dX, dY : integer;
  77.  
  78.   begin
  79.    X := 353;  { Arbitrary starting position. }
  80.    Y := 220;
  81.    dX := 3;    { Arbitrary beginning velocity. }
  82.    dY := 0;
  83.    repeat
  84.     PenPat(white);    { Use white for drawing to }
  85.     PaintCircle(X, Y, 5);  { erase ball at current position }
  86.     X := X + dX;  { upgrade position }
  87.     Y := Y + dY;
  88.     if (X < 353) or (X > 510) or (Y < 175) or (y > 265) then
  89.      begin  { The ball has hit a "wall" and should bounce }
  90.       X := X - dX;  { Move the ball back to its last legal position }
  91.       Y := Y - dY;
  92.       repeat
  93.        dX := ((random mod 3) - 1) * 7;  { Choose new random velocities,}
  94.        dY := ((random mod 3) - 1) * 7; {with each being -7,0, or 7 }
  95.       until (dX <> 0) or (dY <> 0); { zero velocity is illegal }
  96.      end
  97.     else  { new ball position is okay. }
  98.      begin
  99.       PenPat(black);
  100.       PaintCircle(X, Y, 5);   { Draw the ball in the new position }
  101.      end;
  102.    until Button;    { Stop when the button is pressed }
  103.   end;
  104.  
  105.  begin  { Region6 }
  106.   ClearRgn;
  107.   SetRect(r, 353, 150, 530, 290);
  108.   FillRect(r, gray);    { Use a gray background for contrast }
  109.   MoveTo(375, 310);
  110.   DrawString('Continuous Clipping');
  111.  
  112.   OpenRgn;
  113.   SetRect(r, 357, 185, 432, 255);
  114.   FrameOval(r);
  115.   SetRect(r, 432, 185, 507, 255);
  116.   FrameOval(r);
  117.   CloseRgn(My_Rgn);
  118.  
  119.   Use_Region;
  120.   SetRect(r, 353, 150, 530, 290);
  121.   FillRect(r, white);   { Erase the inside of the region, using auto-clipping}
  122.   Animate;  { Do the bouncing ball }
  123.  end;
  124.  
  125.  procedure MakeRgns;
  126.  
  127. { This is a brute force way to call all six regi“◊õá^zõá^z á áPROG 1rameOval(r);
  128.   SetRect(r, 410, 50, 450, 90);     {Completely inside the first shape}
  129.   FrameRoundRect(r, 18, 18);
  130.   CloseRgn(My_Rgn);
  131.  
  132.   Use_Region;
  133.   DrawWords(352, 0);
  134.  end;
  135.  
  136.  procedure DoRegion4;
  137.  
  138. { Region 4. This creates a region which shows the effect of }
  139. {partially overlapping region areas.}
  140.  
  141.   var
  142.    r : Rect;
  143.  
  144.  begin
  145.   ClearRgn;
  146.   MoveTo(40, 310);
  147.   DrawString('Overlapping');
  148.  
  149.   OpenRgn;
  150.   SetRect(r, 30, 180, 130, 280);
  151.   FrameOval(r);    { Draw a simple circle }
  152.   SetRect(r, 5, 215, 155, 245);
  153.   FrameRect(r);    { Draw a rectangle over the circle }
  154.   CloseRgn(My_Rgn);
  155.  
  156.   Use_Region;
  157.   DrawWords(0, 149);
  158.  end;
  159.  
  160.  procedure DoRegion5;
  161.  
  162. { Region 5. Regions do not have to be contiguous. This procedure creates}
  163. {a region with three separate areas.}
  164.  
  165.   var
  166.    r : Rect;
  167.  
  168.  begin
  169.   ClearRgn;
  170.   MoveTo(220, 310);
  171.   DrawString('Disjoint Areas');
  172.  
  173.   OpenRgn;
  174.   SetRect(r, 190, 160, 270, 230);
  175.   FrameOval(r);
  176.   SetRect(r, 280, 160, 340, 240);
  177.   FrameRect(r);
  178.   SetRect(r, 190, 255, 340, 285);
  179.   FrameRoundRect(r, 18, 18);
  180.  
  181.   CloseRgn(My_Rgn);
  182.   Use_Region;
  183.   DrawWords(176, 150);
  184.  end;
  185.  
  186.  procedure DoRegion6;
  187.  
  188. { Region 6. This procedure illustrates the effect of continuous clipping}
  189. {associated with any drawing, even animation.}
  190.  
  191.   var
  192.    r : Rect;
  193.  
  194.   procedure Animate;
  195.  
  196. { Animate, called only by DoRegion6, bounces a ball in the general area}
  197. {of region 6, showing that the clipping occurs constantly, with now need}
  198. {for special instructions. The animation stops when the mouse button is}
  199. {pressed.}
  200.  
  201.    var
  202.     X, Y, dX, dY : integer;
  203.  
  204.   begin
  205.    X := 353;  { Arbitrary starting position. }
  206.    Y := 220;
  207.    dX := 3;    { Arbitrary beginning velocity. }
  208.    dY := 0;
  209.    repeat
  210.     PenPat(white);    { Use white for drawing to }
  211.     PaintCircle(X, Y, 5);  { erase ball at current position }
  212.     X := X + dX;  { upgrade position }
  213.     Y := Y + dY;
  214.     if (X < 353) or (X > 510) or (Y < 175) or (y > 265) then
  215.      begin  { The ball has hit a "wall" and should bounce }
  216.       X := X - dX;  { Move the ball back to its last legal position }
  217.       Y := Y - dY;
  218.       repeat
  219.        dX := ((random mod 3) - 1) * 7;  { Choose new random velocities,}
  220.        dY := ((random mod 3) - 1) * 7; {with each being -7,0, or 7 }
  221.       until (dX <> 0) or (dY <> 0); { zero velocity is illegal }
  222.      end
  223.     else  { new ball position is okay. }
  224.      begin
  225.       PenPat(black);
  226.       PaintCircle(X, Y, 5);   { Draw the ball in the new position }
  227.      end;
  228.    until Button;    { Stop when the button is pressed }
  229.   end;
  230.  
  231.  begin  { Region6 }
  232.   ClearRgn;
  233.   SetRect(r, 353, 150, 530, 290);
  234.   FillRect(r, gray);    { Use a gray background for contrast }
  235.   MoveTo(375, 310);
  236.   DrawString('Continuous Clipping');
  237.  
  238.   OpenRgn;
  239.   SetRect(r, 357, 185, 432, 255);
  240.   FrameOval(r);
  241.   SetRect(r, 432, 185, 507, 255);
  242.   FrameOval(r);
  243.   CloseRgn(My_Rgn);
  244.  
  245.   Use_Region;
  246.   SetRect(r, 353, 150, 530, 290);
  247.   FillRect(r, white);   { Erase the inside of the region, using auto-clipping}
  248.   Animate;  { Do the bouncing ball }
  249.  end;
  250.  
  251.  procedure MakeRgns;
  252.  
  253. { This is a brute force way to call all six regi“◊õá^zõá^z á áPROG 1rameOval(r);
  254.   SetRect(r, 410, 50, 450, 90);     {Completely inside the first shape}
  255.   FrameRoundRect(r, 18, 18);
  256.   CloseRgn(My_Rgn);
  257.  
  258.   Use_Region;
  259.   DrawWords(352, 0);
  260.  end;
  261.  
  262.  procedure DoRegion4;
  263.  
  264. { Region 4. This creates a region which shows the effect of }
  265. {partially overlapping region areas.}
  266.  
  267.   var
  268.    r : Rect;
  269.  
  270.  begin
  271.   ClearRgn;
  272.   MoveTo(40, 310);
  273.   DrawString('Overlapping');
  274.  
  275.   OpenRgn;
  276.   SetRect(r, 30, 180, 130, 280);
  277.   FrameOval(r);    { Draw a simple circle }
  278.   SetRect(r, 5, 215, 155, 245);
  279.   FrameRect(r);    { Draw a rectangle over the circle }
  280.   CloseRgn(My_Rgn);
  281.  
  282.   Use_Region;
  283.   DrawWords(0, 149);
  284.  end;
  285.  
  286.  procedure DoRegion5;
  287.  
  288. { Region 5. Regions do not have to be contiguous. This procedure creates}
  289. {a region with three separate areas.}
  290.  
  291.   var
  292.    r : Rect;
  293.  
  294.  begin
  295.   ClearRgn;
  296.   MoveTo(220, 310);
  297.   DrawString('Disjoint Areas');
  298.  
  299.   OpenRgn;
  300.   SetRect(r, 190, 160, 270, 230);
  301.   FrameOval(r);
  302.   SetRect(r, 280, 160, 340, 240);
  303.   FrameRect(r);
  304.   SetRect(r, 190, 255, 340, 285);
  305.   FrameRoundRect(r, 18, 18);
  306.  
  307.   CloseRgn(My_Rgn);
  308.   Use_Region;
  309.   DrawWords(176, 150);
  310.  end;
  311.  
  312.  procedure DoRegion6;
  313.  
  314. { Region 6. This procedure illustrates the effect of continuous clipping}
  315. {associated with any drawing, even animation.}
  316.  
  317.   var
  318.    r : Rect;
  319.  
  320.   procedure Animate;
  321.  
  322. { Animate, called only by DoRegion6, bounces a ball in the general area}
  323. {of region 6, showing that the clipping occurs constantly, with now need}
  324. {for special instructions. The animation stops when the mouse button is}
  325. {pressed.}
  326.  
  327.    var
  328.     X, Y, dX, dY : integer;
  329.  
  330.   begin
  331.    X := 353;  { Arbitrary starting position. }
  332.    Y := 220;
  333.    dX := 3;    { Arbitrary beginning velocity. }
  334.    dY := 0;
  335.    repeat
  336.     PenPat(white);    { Use white for drawing to }
  337.     PaintCircle(X, Y, 5);  { erase ball at current position }
  338.     X := X + dX;  { upgrade position }
  339.     Y := Y + dY;
  340.     if (X < 353) or (X > 510) or (Y < 175) or (y > 265) then
  341.      begin  { The ball has hit a "wall" and should bounce }
  342.       X := X - dX;  { Move the ball back to its last legal position }
  343.       Y := Y - dY;
  344.       repeat
  345.        dX := ((random mod 3) - 1) * 7;  { Choose new random velocities,}
  346.        dY := ((random mod 3) - 1) * 7; {with each being -7,0, or 7 }
  347.       until (dX <> 0) or (dY <> 0); { zero velocity is illegal }
  348.      end
  349.     else  { new ball position is okay. }
  350.      begin
  351.       PenPat(black);
  352.       PaintCircle(X, Y, 5);   { Draw the ball in the new position }
  353.      end;
  354.    until Button;    { Stop when the button is pressed }
  355.   end;
  356.  
  357.  begin  { Region6 }
  358.   ClearRgn;
  359.   SetRect(r, 353, 150, 530, 290);
  360.   FillRect(r, gray);    { Use a gray background for contrast }
  361.   MoveTo(375, 310);
  362.   DrawString('Continuous Clipping');
  363.  
  364.   OpenRgn;
  365.   SetRect(r, 357, 185, 432, 255);
  366.   FrameOval(r);
  367.   SetRect(r, 432, 185, 507, 255);
  368.   FrameOval(r);
  369.   CloseRgn(My_Rgn);
  370.  
  371.   Use_Region;
  372.   SetRect(r, 353, 150, 530, 290);
  373.   FillRect(r, white);   { Erase the inside of the region, using auto-clipping}
  374.   Animate;  { Do the bouncing ball }
  375.  end;
  376.  
  377.  procedure MakeRgns;
  378.  
  379. { This is a brute force way to call all six regi“◊õá^zõá^z á áPROG 1rameOval(r);
  380.   SetRect(r, 410, 50, 450, 90);     {Completely inside the first shape}
  381.   FrameRoundRect(r, 18, 18);
  382.   CloseRgn(My_Rgn);
  383.  
  384.   Use_Region;
  385.   DrawWords(352, 0);
  386.  end;
  387.  
  388.  procedure DoRegion4;
  389.  
  390. { Region 4. This creates a region which shows the effect of }
  391. {partially overlapping region areas.}
  392.  
  393.   var
  394.    r : Rect;
  395.  
  396.  begin
  397.   ClearRgn;
  398.   MoveTo(40, 310);
  399.   DrawString('Overlapping');
  400.  
  401.   OpenRgn;
  402.   SetRect(r, 30, 180, 130, 280);
  403.   FrameOval(r);    { Draw a simple circle }
  404.   SetRect(r, 5, 215, 155, 245);
  405.   FrameRect(r);    { Draw a rectangle over the circle }
  406.   CloseRgn(My_Rgn);
  407.  
  408.   Use_Region;
  409.   DrawWords(0, 149);
  410.  end;
  411.  
  412.  procedure DoRegion5;
  413.  
  414. { Region 5. Regions do not have to be contiguous. This procedure creates}
  415. {a region with three separate areas.}
  416.  
  417.   var
  418.    r : Rect;
  419.  
  420.  begin
  421.   ClearRgn;
  422.   MoveTo(220, 310);
  423.   DrawString('Disjoint Areas');
  424.  
  425.   OpenRgn;
  426.   SetRect(r, 190, 160, 270, 230);
  427.   FrameOval(r);
  428.   SetRect(r, 280, 160, 340, 240);
  429.   FrameRect(r);
  430.   SetRect(r, 190, 255, 340, 285);
  431.   FrameRoundRect(r, 18,